(occur): If no default, don't mention one.

diff --git a/lisp/replace.el b/lisp/replace.el
index 49f3920dded301a6b7b34f5b434eef9a58e1ea20..2a4dad983a1012bc05ba7fdd20e46bd4c618c8fb 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -276,7 +276,9 @@ It serves as a menu to find any of the occurrences in this buffer.
   (interactive (list (let* ((default (car regexp-history))
                            (input 
                             (read-from-minibuffer
-                             (format "List lines matching regexp (default `%s'): " default)
+                             (if default
+                                 (format "List lines matching regexp (default `%s'): " default)
+                               "List lines matching regexp: ")
                              nil nil nil
                              'regexp-history)))
                       (if (> (length input) 0) input